home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 January: Mac OS SDK / Dev.CD Jan 99 SDK1.toast / Development Kits / Interfaces&Libraries / Universal / Interfaces / AIncludes / DateTimeUtils.a < prev    next >
Encoding:
Text File  |  1998-08-17  |  14.4 KB  |  524 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        DateTimeUtils.a
  3. ;
  4. ;    Contains:    International Date and Time Interfaces (previously in TextUtils)
  5. ;
  6. ;    Version:    Technology:    System 7.5
  7. ;                Release:    Universal Interfaces 3.2
  8. ;
  9. ;    Copyright:    © 1994-1998 by Apple Computer, Inc., all rights reserved.
  10. ;
  11. ;    Bugs?:        For bug reports, consult the following page on
  12. ;                the World Wide Web:
  13. ;
  14. ;                    http://developer.apple.com/bugreporter/
  15. ;
  16. ;
  17.     IF &TYPE('__DATETIMEUTILS__') = 'UNDEFINED' THEN
  18. __DATETIMEUTILS__ SET 1
  19.  
  20.     IF &TYPE('__CONDITIONALMACROS__') = 'UNDEFINED' THEN
  21.     include 'ConditionalMacros.a'
  22.     ENDIF
  23.     IF &TYPE('__MACTYPES__') = 'UNDEFINED' THEN
  24.     include 'MacTypes.a'
  25.     ENDIF
  26.  
  27. ; 
  28. ;
  29. ;    Here are the current routine names and the translations to the older forms.
  30. ;    Please use the newer forms in all new code and migrate the older names out of existing
  31. ;    code as maintainance permits.
  32. ;    
  33. ;    New Name                    Old Name(s)
  34. ;    
  35. ;    DateString                    IUDatePString IUDateString 
  36. ;    InitDateCache
  37. ;    LongDateString                IULDateString
  38. ;    LongTimeString                IULTimeString
  39. ;    StringToDate                String2Date
  40. ;    StringToTime                                
  41. ;    TimeString                    IUTimeString IUTimePString
  42. ;    LongDateToSeconds            LongDate2Secs
  43. ;    LongSecondsToDate            LongSecs2Date
  44. ;    DateToSeconds                Date2Secs
  45. ;    SecondsToDate                Secs2Date
  46. ;
  47.  
  48.  
  49.  
  50.                                                             ; Toggle results 
  51. toggleUndefined                    EQU        0
  52. toggleOK                        EQU        1
  53. toggleBadField                    EQU        2
  54. toggleBadDelta                    EQU        3
  55. toggleBadChar                    EQU        4
  56. toggleUnknown                    EQU        5
  57. toggleBadNum                    EQU        6
  58. toggleOutOfRange                EQU        7                    ;synonym for toggleErr3
  59. toggleErr3                        EQU        7
  60. toggleErr4                        EQU        8
  61. toggleErr5                        EQU        9
  62.  
  63.                                                             ; Date equates 
  64. smallDateBit                    EQU        31                    ;Restrict valid date/time to range of Time global
  65. togChar12HourBit                EQU        30                    ;If toggling hour by char, accept hours 1..12 only
  66. togCharZCycleBit                EQU        29                    ;Modifier for togChar12HourBit: accept hours 0..11 only
  67. togDelta12HourBit                EQU        28                    ;If toggling hour up/down, restrict to 12-hour range (am/pm)
  68. genCdevRangeBit                    EQU        27                    ;Restrict date/time to range used by genl CDEV
  69. validDateFields                    EQU        -1
  70. maxDateField                    EQU        10
  71.  
  72. eraMask                            EQU        $0001
  73. yearMask                        EQU        $0002
  74. monthMask                        EQU        $0004
  75. dayMask                            EQU        $0008
  76. hourMask                        EQU        $0010
  77. minuteMask                        EQU        $0020
  78. secondMask                        EQU        $0040
  79. dayOfWeekMask                    EQU        $0080
  80. dayOfYearMask                    EQU        $0100
  81. weekOfYearMask                    EQU        $0200
  82. pmMask                            EQU        $0400
  83. dateStdMask                        EQU        $007F                ;default for ValidDate flags and ToggleDate TogglePB.togFlags
  84.  
  85. eraField                        EQU        0
  86. yearField                        EQU        1
  87. monthField                        EQU        2
  88. dayField                        EQU        3
  89. hourField                        EQU        4
  90. minuteField                        EQU        5
  91. secondField                        EQU        6
  92. dayOfWeekField                    EQU        7
  93. dayOfYearField                    EQU        8
  94. weekOfYearField                    EQU        9
  95. pmField                            EQU        10
  96. res1Field                        EQU        11
  97. res2Field                        EQU        12
  98. res3Field                        EQU        13
  99. ; typedef SignedByte                     LongDateField
  100.  
  101.  
  102. shortDate                        EQU        0
  103. longDate                        EQU        1
  104. abbrevDate                        EQU        2
  105. ; typedef SInt8                         DateForm
  106.  
  107.  
  108.                                                             ; StringToDate status values 
  109. fatalDateTime                    EQU        $8000                ; StringToDate and String2Time mask to a fatal error 
  110. longDateFound                    EQU        1                    ; StringToDate mask to long date found 
  111. leftOverChars                    EQU        2                    ; StringToDate & Time mask to warn of left over characters 
  112. sepNotIntlSep                    EQU        4                    ; StringToDate & Time mask to warn of non-standard separators 
  113. fieldOrderNotIntl                EQU        8                    ; StringToDate & Time mask to warn of non-standard field order 
  114. extraneousStrings                EQU        16                    ; StringToDate & Time mask to warn of unparsable strings in text 
  115. tooManySeps                        EQU        32                    ; StringToDate & Time mask to warn of too many separators 
  116. sepNotConsistent                EQU        64                    ; StringToDate & Time mask to warn of inconsistent separators 
  117. tokenErr                        EQU        $8100                ; StringToDate & Time mask for 'tokenizer err encountered' 
  118. cantReadUtilities                EQU        $8200
  119. dateTimeNotFound                EQU        $8400
  120. dateTimeInvalid                    EQU        $8800
  121. ; typedef short                         StringToDateStatus
  122.  
  123. ; typedef short                         String2DateStatus
  124.  
  125. DateCacheRecord            RECORD 0
  126. hidden                     ds.w    256                ; offset: $0 (0)        ;  only for temporary use 
  127. sizeof                     EQU *                    ; size:   $200 (512)
  128.                         ENDR
  129. ; typedef struct DateCacheRecord *        DateCachePtr
  130.  
  131. DateTimeRec                RECORD 0
  132. year                     ds.w    1                ; offset: $0 (0)
  133. month                     ds.w    1                ; offset: $2 (2)
  134. day                         ds.w    1                ; offset: $4 (4)
  135. hour                     ds.w    1                ; offset: $6 (6)
  136. minute                     ds.w    1                ; offset: $8 (8)
  137. second                     ds.w    1                ; offset: $A (10)
  138. dayOfWeek                 ds.w    1                ; offset: $C (12)
  139. sizeof                     EQU *                    ; size:   $E (14)
  140.                         ENDR
  141. LongDateTime            RECORD 0
  142. f                         ds        SInt64
  143. sizeof                     EQU *                    ; size:   $8 (8)
  144.                         ENDR
  145.  
  146.  
  147. LongDateCvt                RECORD 0
  148. c                         ds        SInt64            ; offset: $0 (0)
  149.                          ORG 0
  150. lHigh                     ds.l    1                ; offset: $0 (0)
  151. lLow                     ds.l    1                ; offset: $4 (4)
  152. sizeof                     EQU *                    ; size:   $8 (8)
  153.                         ENDR
  154. LongDateRec                RECORD 0
  155. era                         ds.w    1                ; offset: $0 (0)
  156. year                     ds.w    1                ; offset: $2 (2)
  157. month                     ds.w    1                ; offset: $4 (4)
  158. day                         ds.w    1                ; offset: $6 (6)
  159. hour                     ds.w    1                ; offset: $8 (8)
  160. minute                     ds.w    1                ; offset: $A (10)
  161. second                     ds.w    1                ; offset: $C (12)
  162. dayOfWeek                 ds.w    1                ; offset: $E (14)
  163. dayOfYear                 ds.w    1                ; offset: $10 (16)
  164. weekOfYear                 ds.w    1                ; offset: $12 (18)
  165. pm                         ds.w    1                ; offset: $14 (20)
  166. res1                     ds.w    1                ; offset: $16 (22)
  167. res2                     ds.w    1                ; offset: $18 (24)
  168. res3                     ds.w    1                ; offset: $1A (26)
  169.                          ORG 0
  170. list                     ds.w    14                ; offset: $0 (0)        ; Index by LongDateField!
  171.                          ORG 0
  172. eraAlt                     ds.w    1                ; offset: $0 (0)
  173. oldDate                     ds        DateTimeRec        ; offset: $2 (2)
  174.                          ORG 28
  175. sizeof                     EQU *                    ; size:   $1C (28)
  176.                         ENDR
  177. ; typedef SInt8                         DateDelta
  178.  
  179. TogglePB                RECORD 0
  180. togFlags                 ds.l    1                ; offset: $0 (0)        ; caller normally sets low word to dateStdMask=$7F
  181. amChars                     ds.l    1                ; offset: $4 (4)        ; from 'itl0', but uppercased
  182. pmChars                     ds.l    1                ; offset: $8 (8)        ; from 'itl0', but uppercased
  183. reserved                 ds.l    4                ; offset: $C (12)
  184. sizeof                     EQU *                    ; size:   $1C (28)
  185.                         ENDR
  186. ; typedef short                         ToggleResults
  187.  
  188. ; 
  189. ; **************************************************************************************
  190. ; *
  191. ; * The following functions are new names that work on 68k and PowerPC
  192. ; *
  193. ; **************************************************************************************
  194. ;
  195.  
  196.  
  197. ;
  198. ; pascal OSErr InitDateCache(DateCachePtr theCache)
  199. ;
  200.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  201.         Macro
  202.         _InitDateCache
  203.             move.l              #$8204FFF8,-(sp)
  204.             dc.w                $A8B5
  205.         EndM
  206.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  207.         IMPORT_CFM_FUNCTION InitDateCache
  208.     ENDIF
  209.  
  210. ;
  211. ; pascal StringToDateStatus StringToDate(Ptr textPtr, long textLen, DateCachePtr theCache, long *lengthUsed, LongDateRec *dateTime)
  212. ;
  213.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  214.         Macro
  215.         _StringToDate
  216.             move.l              #$8214FFF6,-(sp)
  217.             dc.w                $A8B5
  218.         EndM
  219.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  220.         IMPORT_CFM_FUNCTION StringToDate
  221.     ENDIF
  222.  
  223. ;
  224. ; pascal StringToDateStatus StringToTime(Ptr textPtr, long textLen, DateCachePtr theCache, long *lengthUsed, LongDateRec *dateTime)
  225. ;
  226.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  227.         Macro
  228.         _StringToTime
  229.             move.l              #$8214FFF4,-(sp)
  230.             dc.w                $A8B5
  231.         EndM
  232.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  233.         IMPORT_CFM_FUNCTION StringToTime
  234.     ENDIF
  235.  
  236. ;
  237. ; pascal void IUDateString(long dateTime, DateForm longFlag, Str255 result)
  238. ;
  239.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  240.         Macro
  241.         _IUDateString
  242.             clr.w               -(sp)
  243.             dc.w                $A9ED
  244.         EndM
  245.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  246.         IMPORT_CFM_FUNCTION IUDateString
  247.     ENDIF
  248.  
  249. ;
  250. ; pascal void IUTimeString(long dateTime, Boolean wantSeconds, Str255 result)
  251. ;
  252.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  253.         Macro
  254.         _IUTimeString
  255.             move.w              #$0002,-(sp)
  256.             dc.w                $A9ED
  257.         EndM
  258.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  259.         IMPORT_CFM_FUNCTION IUTimeString
  260.     ENDIF
  261.  
  262. ;
  263. ; pascal void IUDatePString(long dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  264. ;
  265.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  266.         Macro
  267.         _IUDatePString
  268.             move.w              #$000E,-(sp)
  269.             dc.w                $A9ED
  270.         EndM
  271.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  272.         IMPORT_CFM_FUNCTION IUDatePString
  273.     ENDIF
  274.  
  275. ;
  276. ; pascal void IUTimePString(long dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  277. ;
  278.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  279.         Macro
  280.         _IUTimePString
  281.             move.w              #$0010,-(sp)
  282.             dc.w                $A9ED
  283.         EndM
  284.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  285.         IMPORT_CFM_FUNCTION IUTimePString
  286.     ENDIF
  287.  
  288. ;
  289. ; pascal void IULDateString(LongDateTime *dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  290. ;
  291.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  292.         Macro
  293.         _IULDateString
  294.             move.w              #$0014,-(sp)
  295.             dc.w                $A9ED
  296.         EndM
  297.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  298.         IMPORT_CFM_FUNCTION IULDateString
  299.     ENDIF
  300.  
  301. ;
  302. ; pascal void IULTimeString(LongDateTime *dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  303. ;
  304.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  305.         Macro
  306.         _IULTimeString
  307.             move.w              #$0016,-(sp)
  308.             dc.w                $A9ED
  309.         EndM
  310.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  311.         IMPORT_CFM_FUNCTION IULTimeString
  312.     ENDIF
  313.  
  314.  
  315. ;
  316. ; pascal void LongDateToSeconds(const LongDateRec *lDate, LongDateTime *lSecs)
  317. ;
  318.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  319.         Macro
  320.         _LongDateToSeconds
  321.             move.l              #$8008FFF2,-(sp)
  322.             dc.w                $A8B5
  323.         EndM
  324.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  325.         IMPORT_CFM_FUNCTION LongDateToSeconds
  326.     ENDIF
  327.  
  328. ;
  329. ; pascal void LongSecondsToDate(const LongDateTime *lSecs, LongDateRec *lDate)
  330. ;
  331.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  332.         Macro
  333.         _LongSecondsToDate
  334.             move.l              #$8008FFF0,-(sp)
  335.             dc.w                $A8B5
  336.         EndM
  337.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  338.         IMPORT_CFM_FUNCTION LongSecondsToDate
  339.     ENDIF
  340.  
  341. ;
  342. ; pascal ToggleResults ToggleDate(LongDateTime *lSecs, LongDateField field, DateDelta delta, short ch, const TogglePB *params)
  343. ;
  344.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  345.         Macro
  346.         _ToggleDate
  347.             move.l              #$820EFFEE,-(sp)
  348.             dc.w                $A8B5
  349.         EndM
  350.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  351.         IMPORT_CFM_FUNCTION ToggleDate
  352.     ENDIF
  353.  
  354. ;
  355. ; pascal short ValidDate(const LongDateRec *vDate, long flags, LongDateTime *newSecs)
  356. ;
  357.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  358.         Macro
  359.         _ValidDate
  360.             move.l              #$820CFFE4,-(sp)
  361.             dc.w                $A8B5
  362.         EndM
  363.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  364.         IMPORT_CFM_FUNCTION ValidDate
  365.     ENDIF
  366.  
  367. ;
  368. ; pascal OSErr ReadDateTime(unsigned long *time)
  369. ;
  370.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  371.         ; parameters:
  372.         ;    time            => A0
  373.         ; returns:
  374.         ;    OSErr           <= D0
  375.         _ReadDateTime:    OPWORD    $A039
  376.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  377.         IMPORT_CFM_FUNCTION ReadDateTime
  378.     ENDIF
  379.  
  380. ;
  381. ; pascal void GetDateTime(unsigned long *secs)
  382. ;
  383.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  384.         ; parameters:
  385.         ;    secs            => A0
  386.         Macro
  387.         _GetDateTime
  388.             move.l              $020C,(A0)
  389.         EndM
  390.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  391.         IMPORT_CFM_FUNCTION GetDateTime
  392.     ENDIF
  393.  
  394. ;
  395. ; pascal OSErr SetDateTime(unsigned long time)
  396. ;
  397.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  398.         ; parameters:
  399.         ;    time            => D0
  400.         ; returns:
  401.         ;    OSErr           <= D0
  402.         _SetDateTime:    OPWORD    $A03A
  403.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  404.         IMPORT_CFM_FUNCTION SetDateTime
  405.     ENDIF
  406.  
  407. ;
  408. ; pascal void SetTime(const DateTimeRec *d)
  409. ;
  410.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  411.         ; parameters:
  412.         ;    d               => A0
  413.         Macro
  414.         _SetTime
  415.             dc.w                $A9C7
  416.             dc.w                $A03A
  417.         EndM
  418.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  419.         IMPORT_CFM_FUNCTION SetTime
  420.     ENDIF
  421.  
  422. ;
  423. ; pascal void GetTime(DateTimeRec *d)
  424. ;
  425.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  426.         ; parameters:
  427.         ;    d               => A0
  428.         Macro
  429.         _GetTime
  430.             move.l              $020C,D0
  431.             dc.w                $A9C6
  432.         EndM
  433.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  434.         IMPORT_CFM_FUNCTION GetTime
  435.     ENDIF
  436.  
  437. ;
  438. ; pascal void DateToSeconds(const DateTimeRec *d, unsigned long *secs)
  439. ;
  440.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  441.         _DateToSeconds:    OPWORD    $A9C7
  442.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  443.         IMPORT_CFM_FUNCTION DateToSeconds
  444.     ENDIF
  445.  
  446. ;
  447. ; pascal void SecondsToDate(unsigned long secs, DateTimeRec *d)
  448. ;
  449.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  450.         ; parameters:
  451.         ;    secs            => D0
  452.         ;    d               => A0
  453.         _SecondsToDate:    OPWORD    $A9C6
  454.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  455.         IMPORT_CFM_FUNCTION SecondsToDate
  456.     ENDIF
  457.  
  458. ; 
  459. ; **************************************************************************************
  460. ; *
  461. ; * The following provide direct function prototypes for new names for 68k
  462. ; *
  463. ; **************************************************************************************
  464. ;
  465.  
  466. ;
  467. ; pascal void DateString(long dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  468. ;
  469.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  470.         Macro
  471.         _DateString
  472.             move.w              #$000E,-(sp)
  473.             dc.w                $A9ED
  474.         EndM
  475.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  476.         IMPORT_CFM_FUNCTION DateString
  477.     ENDIF
  478.  
  479. ;
  480. ; pascal void TimeString(long dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  481. ;
  482.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  483.         Macro
  484.         _TimeString
  485.             move.w              #$0010,-(sp)
  486.             dc.w                $A9ED
  487.         EndM
  488.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  489.         IMPORT_CFM_FUNCTION TimeString
  490.     ENDIF
  491.  
  492. ;
  493. ; pascal void LongDateString(LongDateTime *dateTime, DateForm longFlag, Str255 result, Handle intlHandle)
  494. ;
  495.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  496.         Macro
  497.         _LongDateString
  498.             move.w              #$0014,-(sp)
  499.             dc.w                $A9ED
  500.         EndM
  501.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  502.         IMPORT_CFM_FUNCTION LongDateString
  503.     ENDIF
  504.  
  505. ;
  506. ; pascal void LongTimeString(LongDateTime *dateTime, Boolean wantSeconds, Str255 result, Handle intlHandle)
  507. ;
  508.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  509.         Macro
  510.         _LongTimeString
  511.             move.w              #$0016,-(sp)
  512.             dc.w                $A9ED
  513.         EndM
  514.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  515.         IMPORT_CFM_FUNCTION LongTimeString
  516.     ENDIF
  517.  
  518.  
  519.  
  520.  
  521.  
  522.     ENDIF ; __DATETIMEUTILS__ 
  523.  
  524.